10 poke 53280,3
20 print peek(53280)
30 print peek(53281)
100 list
110 clearrgb 200, 200, 255
120 print "clear rgb was ok!"
200 REM MELODY 0
999 end
1000 clearrgb 0, 0, 0
1010 gprint 304, 20, "HeroZ"
1020 gprint 304, 36, chr$(8)*5
1030 gprint 50, 120, "	 F1 _   One Player"
1040 gprint 50, 140, "	 F7 _   Quit Game"
1999 end
2000 on FUNCTION% goto 2100,2300,2400,2450,2300,2300,2200,2300
2010 goto fselectend%
2100 print "Play"
2110 goto fselectend%
2200 print "quit"
2210 RUNGAME% = 0
2220 goto fselectend%
2300 print "ignore"
2310 goto fselectend%
2400 melody 0
2405 print "Muzak on"
2410 goto fselectend%
2450 melody -1200
2455 print "Muzak off"
2460 goto fselectend%
2900 proc fselectend%
2910 end
